unit uMainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TFormGlControls = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormGlControls: TFormGlControls;

implementation
uses uEngine, uAbstractMenu;

var
  MainMenu : TAbstractMenu;
{$R *.dfm}

procedure TFormGlControls.FormCreate(Sender: TObject);
begin
  Engine.InitForm(Self);
  MainMenu:=TAbstractMenu.Create;
end;

procedure TFormGlControls.FormDestroy(Sender: TObject);
begin
  MainMenu.Free;
end;

procedure TFormGlControls.FormResize(Sender: TObject);
begin
   MainMenu.OnFormResize;
end;

end.
